home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 30
/
Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso
/
Aminet
/
dev
/
lang
/
SmallEiffel.lha
/
SmallEiffel
/
bin_c
/
compile_to_jvm3.c
< prev
next >
Wrap
C/C++ Source or Header
|
1998-12-22
|
5KB
|
376 lines
/*
-- ANSI C code generated by :
-- SmallEiffel The GNU Eiffel Compiler -- Release (- 0.79) --
-- Copyright (C), 1994-98 - LORIA - UHP - CRIN - INRIA - FRANCE --
-- Dominique COLNET and Suzanne COLLIN - colnet@loria.fr --
-- http://www.loria.fr/SmallEiffel --
*/
#include "compile_to_jvm.h"
T353 r353realloc(T353 C,T2 a1,T2 a2){
T353 R=NULL;
R=calloc(a2,sizeof(T0*));
r353copy_from(R,C,(a1)-(1));
return R;
}
void r353set_all_with(T353 C,T0* a1,T2 a2){
T2 _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=(a1);
_i=(_i)-(1);
}
}
T2 r353fast_index_of(T353 C,T0* a1,T2 a2){
T2 R=0;
while (!(((R)>(a2))||((a1)==((void*)((C)[R]))))) {
R=(R)+(1);
}
return R;
}
void r353copy_from(T353 C,T353 a1,T2 a2){
T2 _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=((a1)[_i]);
_i=(_i)-(1);
}
}
T351 r351realloc(T351 C,T2 a1,T2 a2){
T351 R=NULL;
R=calloc(a2,sizeof(T0*));
r351copy_from(R,C,(a1)-(1));
return R;
}
void r351set_all_with(T351 C,T0* a1,T2 a2){
T2 _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=(a1);
_i=(_i)-(1);
}
}
T2 r351fast_index_of(T351 C,T0* a1,T2 a2){
T2 R=0;
while (!(((R)>(a2))||((a1)==((void*)((C)[R]))))) {
R=(R)+(1);
}
return R;
}
void r351copy_from(T351 C,T351 a1,T2 a2){
T2 _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=((a1)[_i]);
_i=(_i)-(1);
}
}
T334 r334realloc(T334 C,T2 a1,T2 a2){
T334 R=NULL;
R=calloc(a2,sizeof(T0*));
r334copy_from(R,C,(a1)-(1));
return R;
}
void r334set_all_with(T334 C,T0* a1,T2 a2){
T2 _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=(a1);
_i=(_i)-(1);
}
}
void r334move(T334 C,T2 a1,T2 a2,T2 a3){
T2 _i=0;
/*[IF*/
if((a3)==(0)){
}
else if((a3)<(0)){
_i=a1;
while (!((_i)>(a2))) {
(C)[(_i)+(a3)]=((C)[_i]);
_i=(_i)+(1);
}
}
else{
_i=a2;
while (!((_i)<(a1))) {
(C)[(_i)+(a3)]=((C)[_i]);
_i=(_i)-(1);
}
}
/*FI]*/
}
void r334clear(T334 C,T2 a1,T2 a2){
T2 _i=0;
T0* _v=NULL;
_i=a1;
while (!((_i)>(a2))) {
(C)[_i]=(_v);
_i=(_i)+(1);
}
}
void r334copy_from(T334 C,T334 a1,T2 a2){
T2 _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=((a1)[_i]);
_i=(_i)-(1);
}
}
T266 r266realloc(T266 C,T2 a1,T2 a2){
T266 R=NULL;
R=calloc(a2,sizeof(T0*));
r266copy_from(R,C,(a1)-(1));
return R;
}
void r266set_all_with(T266 C,T0* a1,T2 a2){
T2 _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=(a1);
_i=(_i)-(1);
}
}
void r266copy_from(T266 C,T266 a1,T2 a2){
T2 _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=((a1)[_i]);
_i=(_i)-(1);
}
}
T207 r207realloc(T207 C,T2 a1,T2 a2){
T207 R=NULL;
R=calloc(a2,sizeof(T0*));
r207copy_from(R,C,(a1)-(1));
return R;
}
void r207clear_all(T207 C,T2 a1){
T2 _i=0;
T0* _v=NULL;
_i=a1;
while (!((_i)<(0))) {
(C)[_i]=(_v);
_i=(_i)-(1);
}
}
void r207set_all_with(T207 C,T0* a1,T2 a2){
T2 _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=(a1);
_i=(_i)-(1);
}
}
void r207copy_from(T207 C,T207 a1,T2 a2){
T2 _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=((a1)[_i]);
_i=(_i)-(1);
}
}
T332 r332realloc(T332 C,T2 a1,T2 a2){
T332 R=NULL;
R=calloc(a2,sizeof(T0*));
r332copy_from(R,C,(a1)-(1));
return R;
}
void r332set_all_with(T332 C,T0* a1,T2 a2){
T2 _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=(a1);
_i=(_i)-(1);
}
}
void r332copy_from(T332 C,T332 a1,T2 a2){
T2 _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=((a1)[_i]);
_i=(_i)-(1);
}
}
T286 r286realloc(T286 C,T2 a1,T2 a2){
T286 R=NULL;
R=calloc(a2,sizeof(T0*));
r286copy_from(R,C,(a1)-(1));
return R;
}
void r286copy_from(T286 C,T286 a1,T2 a2){
T2 _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=((a1)[_i]);
_i=(_i)-(1);
}
}
T324 r324realloc(T324 C,T2 a1,T2 a2){
T324 R=NULL;
R=calloc(a2,sizeof(T0*));
r324copy_from(R,C,(a1)-(1));
return R;
}
void r324copy_from(T324 C,T324 a1,T2 a2){
T2 _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=((a1)[_i]);
_i=(_i)-(1);
}
}
T56 r56realloc(T56 C,T2 a1,T2 a2){
T56 R=NULL;
R=calloc(a2,sizeof(T0*));
r56copy_from(R,C,(a1)-(1));
return R;
}
void r56set_all_with(T56 C,T0* a1,T2 a2){
T2 _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=(a1);
_i=(_i)-(1);
}
}
T2 r56fast_index_of(T56 C,T0* a1,T2 a2){
T2 R=0;
while (!(((R)>(a2))||((a1)==((void*)((C)[R]))))) {
R=(R)+(1);
}
return R;
}
void r56move(T56 C,T2 a1,T2 a2,T2 a3){
T2 _i=0;
/*[IF*/
if((a3)==(0)){
}
else if((a3)<(0)){
_i=a1;
while (!((_i)>(a2))) {
(C)[(_i)+(a3)]=((C)[_i]);
_i=(_i)+(1);
}
}
else{
_i=a2;
while (!((_i)<(a1))) {
(C)[(_i)+(a3)]=((C)[_i]);
_i=(_i)-(1);
}
}
/*FI]*/
}
void r56clear(T56 C,T2 a1,T2 a2){
T2 _i=0;
T0* _v=NULL;
_i=a1;
while (!((_i)>(a2))) {
(C)[_i]=(_v);
_i=(_i)+(1);
}
}
void r56copy_from(T56 C,T56 a1,T2 a2){
T2 _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=((a1)[_i]);
_i=(_i)-(1);
}
}
T190 r190realloc(T190 C,T2 a1,T2 a2){
T190 R=NULL;
R=calloc(a2,sizeof(T0*));
r190copy_from(R,C,(a1)-(1));
return R;
}
void r190set_all_with(T190 C,T0* a1,T2 a2){
T2 _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=(a1);
_i=(_i)-(1);
}
}
void r190copy_from(T190 C,T190 a1,T2 a2){
T2 _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=((a1)[_i]);
_i=(_i)-(1);
}
}